home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BCCGRX12.ZIP / contrib / bcc2grx / src / bccgrx12.c < prev    next >
C/C++ Source or Header  |  1993-05-04  |  904b  |  37 lines
  1. /*
  2.  *  BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
  3.  *  Copyright (C) 1993  Hartmut Schirmer
  4.  *
  5.  *  see bccgrx.c for details
  6.  */
  7.  
  8. #include "bccgrx00.h"
  9.  
  10. void fillellipse( int x, int y, int xradius, int yradius)
  11. {
  12.   _DO_INIT_CHECK;
  13.   x += VL;
  14.   y += VT;
  15.   xradius = XR(xradius);
  16.   yradius = YR(yradius);
  17.   switch (FPATT) {
  18.     case SOLID_FILL :
  19.       GrFilledEllipse( x, y, xradius, yradius, FILL);
  20.       if (COL != FILL)
  21.     GrEllipse( x, y, xradius, yradius, COL);
  22.       break;
  23.     case EMPTY_FILL :
  24.       GrFilledEllipse( x, y, xradius, yradius, COLBG);
  25.       if (COL != COLBG)
  26.     GrEllipse( x, y, xradius, yradius, COL);
  27.       break;
  28.     default :
  29.       FILLP.gp_bmp_fgcolor = FILL;
  30.       FILLP.gp_bmp_bgcolor = COLBG;
  31.       GrPatternFilledEllipse( x, y, xradius, yradius, &FILLP);
  32.       GrEllipse( x, y, xradius, yradius, COL);
  33.       break;
  34.   }
  35. }
  36.  
  37.